From 58cb0eeb29508cafcefdffa18dbf624df8bb7e10 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 7 Jan 2012 11:46:47 +0000 Subject: [PATCH] shr.el (shr-visit-file): Move point to the beginning of the buffer after rendering. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/shr.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 15b659cecb6..7df668591ff 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2012-01-07 Lars Magne Ingebrigtsen + + * shr.el (shr-visit-file): Move point to the beginning of the buffer + after rendering. + 2012-01-07 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-summary-read-group): Document more parameters diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index d4d8f7dd31e..969d893c2d4 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -134,7 +134,8 @@ cid: URL as the argument.") (shr-insert-document (with-temp-buffer (insert-file-contents file) - (libxml-parse-html-region (point-min) (point-max))))) + (libxml-parse-html-region (point-min) (point-max)))) + (goto-char (point-min))) ;;;###autoload (defun shr-insert-document (dom) -- 2.30.2